/ The Ultimate Windows Set / The Ultimate Windows Set.iso / win / pro289 / vpok.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fc 05 02 00 0f 00 5f 01 | 5f 01 09 00 01 02 03 04 |......_.|_.......|
|00000010| 06 0b 05 08 0a 10 11 10 | 11 f4 02 00 00 1a 00 7f |........|........|
|00000020| 01 67 01 1b 02 4f 01 17 | 01 9d 01 00 00 a8 01 af |.g...O..|........|
|00000030| 00 d5 00 65 00 c3 00 71 | 00 ca 01 5a 00 78 00 93 |...e...q|...Z.x..|
|00000040| 01 f9 00 2f 01 64 02 91 | 02 d6 01 4f 02 a7 00 23 |.../.d..|...O...#|
|00000050| 01 3b 02 ca 00 6b 02 0f | 01 bb 00 8b 00 96 00 00 |.;...k..|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 f4 02 00 00 e3 01 00 | 07 43 61 72 64 56 61 6c |........|.CardVal|
|00000080| 83 00 00 08 44 65 63 6b | 50 61 63 6b fb 01 00 03 |....Deck|Pack....|
|00000090| 50 6f 73 9f 00 00 07 43 | 61 72 64 4e 75 6d 00 00 |Pos....C|ardNum..|
|000000a0| 00 04 44 65 63 6b 44 01 | 00 07 53 68 75 66 66 6c |..DeckD.|..Shuffl|
|000000b0| 65 f1 01 00 05 49 6e 64 | 65 78 10 02 00 04 4c 50 |e....Ind|ex....LP|
|000000c0| 6f 73 08 01 00 04 54 50 | 6f 73 f0 00 00 08 50 69 |os....TP|os....Pi|
|000000d0| 63 74 75 72 65 31 00 00 | 00 04 4c 65 66 74 74 02 |cture1..|..Leftt.|
|000000e0| 00 03 54 6f 70 73 01 00 | 07 56 69 73 69 62 6c 65 |..Tops..|.Visible|
|000000f0| e4 00 00 0b 50 69 63 74 | 75 72 65 31 54 6f 70 00 |....Pict|ure1Top.|
|00000100| 00 00 08 53 68 75 66 66 | 6c 65 32 00 00 00 05 44 |...Shuff|le2....D|
|00000110| 75 6d 6d 79 38 01 00 0b | 50 6f 73 4c 65 73 73 54 |ummy8...|PosLessT|
|00000120| 68 61 6e db 02 00 03 4b | 65 79 00 00 00 04 43 6f |han....K|ey....Co|
|00000130| 6d 70 2f 02 00 08 44 65 | 63 6b 53 69 7a 65 5d 01 |mp/...De|ckSize].|
|00000140| 00 08 43 6f 6e 73 74 61 | 6e 74 b3 01 00 05 56 61 |..Consta|nt....Va|
|00000150| 6c 75 65 88 01 00 08 43 | 61 72 64 56 61 6c 73 b9 |lue....C|ardVals.|
|00000160| 02 00 07 43 6f 75 6e 74 | 65 72 6d 01 00 0a 42 75 |...Count|erm...Bu|
|00000170| 62 62 6c 65 53 6f 72 74 | bf 01 00 06 53 6f 72 74 |bbleSort|....Sort|
|00000180| 65 64 ae 02 00 02 48 69 | 00 00 00 02 4c 6f 99 02 |ed....Hi|....Lo..|
|00000190| 00 08 54 65 6d 70 44 65 | 63 6b 00 00 00 05 4d 79 |..TempDe|ck....My|
|000001a0| 42 65 74 00 00 00 07 4d | 79 53 74 61 6b 65 00 00 |Bet....M|yStake..|
|000001b0| 00 06 4d 79 48 61 6e 64 | 5b 02 00 07 48 69 73 48 |..MyHand|[...HisH|
|000001c0| 61 6e 64 c7 02 00 07 4d | 79 43 61 72 64 73 00 00 |and....M|yCards..|
|000001d0| 00 08 48 69 73 43 61 72 | 64 73 00 00 00 07 4d 79 |..HisCar|ds....My|
|000001e0| 54 6f 74 61 6c 86 02 00 | 08 48 69 73 54 6f 74 61 |Total...|.HisTota|
|000001f0| 6c 06 02 00 09 44 65 61 | 6c 65 72 48 69 74 00 00 |l....Dea|lerHit..|
|00000200| 00 0a 43 68 61 6e 67 65 | 64 41 63 65 00 00 00 06 |..Change|dAce....|
|00000210| 4c 61 62 65 6c 32 00 00 | 00 07 43 61 70 74 69 6f |Label2..|..Captio|
|00000220| 6e 25 02 00 06 48 69 74 | 42 75 74 43 02 00 07 45 |n%...Hit|ButC...E|
|00000230| 6e 61 62 6c 65 64 a2 02 | 00 06 44 75 6d 48 69 73 |nabled..|..DumHis|
|00000240| 00 00 00 06 48 69 73 42 | 65 74 00 00 00 08 48 69 |....HisB|et....Hi|
|00000250| 73 53 74 61 6b 65 00 00 | 00 04 42 75 72 6e 00 00 |sStake..|..Burn..|
|00000260| 00 08 44 65 61 6c 44 6f | 77 6e 00 00 00 08 43 61 |..DealDo|wn....Ca|
|00000270| 72 64 53 75 69 74 e8 02 | 00 05 42 4c 41 43 4b 00 |rdSuit..|..BLACK.|
|00000280| 00 00 03 52 45 44 00 00 | 00 05 47 52 45 45 4e 7e |...RED..|..GREEN~|
|00000290| 02 00 06 59 45 4c 4c 4f | 57 00 00 00 04 42 4c 55 |...YELLO|W....BLU|
|000002a0| 45 00 00 00 07 4d 41 47 | 45 4e 54 41 00 00 00 04 |E....MAG|ENTA....|
|000002b0| 43 59 41 4e 00 00 00 05 | 57 48 49 54 45 d3 02 00 |CYAN....|WHITE...|
|000002c0| 08 42 65 65 70 54 69 6d | 65 00 00 00 07 44 41 52 |.BeepTim|e....DAR|
|000002d0| 4b 52 45 44 00 00 00 0a | 46 6c 61 73 68 43 6f 75 |KRED....|FlashCou|
|000002e0| 6e 74 00 00 00 08 5a 69 | 70 43 6f 75 6e 74 00 00 |nt....Zi|pCount..|
|000002f0| 00 04 4d 61 69 6e 00 00 | 00 09 50 6f 6b 53 70 6c |..Main..|..PokSpl|
|00000300| 61 73 68 00 00 00 08 54 | 61 62 6c 65 54 6f 70 8e |ash....T|ableTop.|
|00000310| 01 00 00 18 00 00 00 00 | 00 00 00 1c 00 44 00 65 |........|.....D.e|
|00000320| 00 00 10 18 00 71 00 16 | 00 01 00 08 00 00 10 18 |.....q..|........|
|00000330| 00 78 00 16 00 01 00 0c | 00 00 10 18 00 5a 00 16 |.x......|.....Z..|
|00000340| 00 01 00 0c 00 00 10 18 | 00 4f 02 16 00 01 00 0d |........|.O......|
|00000350| 00 00 00 1b 00 ff ff 00 | 00 00 00 1d 00 e5 00 33 |........|.......3|
|00000360| 00 0c 00 17 01 00 00 00 | 00 00 00 16 01 84 00 17 |........|........|
|00000370| 00 0b 00 17 01 15 00 65 | 00 16 00 10 00 02 00 83 |.......e|........|
|00000380| 00 00 00 16 01 9a 00 17 | 00 e4 10 15 00 65 00 11 |........|.....e..|
|00000390| 00 10 00 02 00 93 01 00 | 00 16 01 aa 00 15 00 65 |........|.......e|
|000003a0| 00 10 00 0d 00 73 01 00 | 00 16 01 ba 00 16 00 01 |.....s..|........|
|000003b0| 00 0f 00 0d 00 44 01 00 | 00 16 01 ca 00 16 00 01 |.....D..|........|
|000003c0| 00 0d 00 0d 00 7f 01 00 | 00 16 01 da 00 16 00 03 |........|........|
|000003d0| 00 0f 00 0d 00 88 01 00 | 00 16 01 ea 00 16 00 01 |........|........|
|000003e0| 00 10 00 0d 00 a2 02 00 | 00 16 01 fa 00 16 00 01 |........|........|
|000003f0| 00 12 00 0d 00 b9 02 00 | 00 16 01 0a 01 16 00 01 |........|........|
|00000400| 00 10 00 0d 00 c7 02 00 | 00 00 00 76 00 09 00 00 |........|...v....|
|00000410| 00 20 43 6f 6c 6f 72 73 | 20 00 00 1e 00 e8 00 00 |. Colors| .......|
|00000420| 00 00 00 0c 00 5b 02 00 | 00 1e 00 e8 00 ff 00 00 |.....[..|........|
|00000430| 00 0c 00 64 02 00 00 1e | 00 e8 00 00 ff 00 00 0c |...d....|........|
|00000440| 00 6b 02 00 00 1e 00 e8 | 00 ff ff 00 00 0c 00 74 |.k......|.......t|
|00000450| 02 00 00 1e 00 e8 00 00 | 00 ff 00 0c 00 7e 02 00 |........|.....~..|
|00000460| 00 1e 00 e8 00 ff 00 ff | 00 0c 00 86 02 00 00 1e |........|........|
|00000470| 00 e8 00 00 ff ff 00 0c | 00 91 02 00 00 1e 00 e8 |........|........|
|00000480| 00 ff ff ff 00 0c 00 99 | 02 00 00 00 00 1e 00 e8 |........|........|
|00000490| 00 40 00 00 00 0c 00 ae | 02 00 00 09 00 08 00 ff |.@......|........|
|000004a0| ff ff ff 0c 00 ff ff 22 | 00 04 00 03 01 00 0a 00 |......."|........|
|000004b0| 42 75 62 62 6c 65 53 6f | 72 74 01 00 30 00 01 00 |BubbleSo|rt..0...|
|000004c0| 00 18 00 00 00 58 00 06 | 00 4f 01 00 01 00 00 00 |.....X..|.O......|
|000004d0| 10 2b 01 0c 00 5d 01 00 | 10 0b 00 17 01 0c 00 67 |.+...]..|.......g|
|000004e0| 01 00 10 e4 00 0c 00 6d | 01 00 10 0b 00 67 01 0b |.......m|.....g..|
|000004f0| 00 6d 01 df 00 ee 00 0b | 00 5d 01 f4 00 ee 00 a4 |.m......|.]......|
|00000500| 00 31 00 18 01 00 20 2c | 01 0c 00 5d 01 00 20 0b |.1.... ,|...].. .|
|00000510| 00 96 00 0b 00 6d 01 0b | 00 67 01 e4 04 f7 00 3e |.....m..|.g.....>|
|00000520| 00 ff ff 00 01 00 30 0b | 00 96 00 e4 04 a3 00 0e |......0.|........|
|00000530| 00 01 00 83 00 11 00 71 | 00 0b 00 96 00 0e 00 01 |.......q|........|
|00000540| 00 83 00 11 00 71 00 e3 | 00 49 00 f6 00 00 40 0b |.....q..|.I....@.|
|00000550| 00 96 00 e4 04 a3 00 0e | 00 01 00 83 00 0c 00 73 |........|.......s|
|00000560| 01 00 40 0b 00 96 00 0e | 00 01 00 83 00 0b 00 96 |..@.....|........|
|00000570| 00 e4 04 a3 00 0f 00 01 | 00 83 00 00 40 0b 00 73 |........|....@..s|
|00000580| 01 0b 00 96 00 0f 00 01 | 00 83 00 00 40 2b 01 0c |........|....@+..|
|00000590| 00 5d 01 00 30 38 00 00 | 20 0b 00 96 00 4e 00 ff |.]..08..| ....N..|
|000005a0| ff 06 00 00 20 0b 00 67 | 01 e4 04 f7 00 0c 00 67 |.... ..g|.......g|
|000005b0| 01 00 10 4a 00 32 00 00 | 00 39 00 09 00 08 00 ff |...J.2..|.9......|
|000005c0| ff ff ff ff ff ff ff 11 | 00 04 00 03 00 00 04 00 |........|........|
|000005d0| 4d 61 69 6e 01 00 30 2a | 00 00 00 18 00 00 00 58 |Main..0*|.......X|
|000005e0| 00 06 00 d3 02 00 01 00 | 00 00 10 0b 00 db 02 65 |........|.......e|
|000005f0| 00 e4 04 1b 01 0f 00 01 | 00 78 00 00 00 39 00 09 |........|.x...9..|
|00000600| 00 08 00 ff ff ff ff ff | ff ff ff 03 00 04 00 03 |........|........|
|00000610| 00 00 07 00 53 68 75 66 | 66 6c 65 01 00 30 52 04 |....Shuf|fle..0R.|
|00000620| 00 00 18 00 00 00 58 00 | 06 00 8b 00 00 01 00 00 |......X.|........|
|00000630| 00 00 00 00 76 00 31 00 | 00 00 44 65 63 6b 50 61 |....v.1.|..DeckPa|
|00000640| 63 6b 20 49 73 20 54 68 | 65 20 52 65 63 6f 72 64 |ck Is Th|e Record|
|00000650| 20 57 68 69 63 68 20 53 | 74 6f 72 65 73 20 43 61 | Which S|tores Ca|
|00000660| 72 64 20 56 61 6c 75 65 | 73 45 00 00 76 00 38 00 |rd Value|sE..v.8.|
|00000670| 00 00 57 68 65 6e 20 54 | 68 65 20 53 68 75 66 66 |..When T|he Shuff|
|00000680| 6c 65 20 52 6f 75 74 69 | 6e 65 20 49 73 20 45 6e |le Routi|ne Is En|
|00000690| 74 65 72 65 64 20 54 68 | 65 20 43 61 72 64 4e 75 |tered Th|e CardNu|
|000006a0| 6d 20 28 30 2d 35 31 29 | 00 00 76 00 32 00 00 00 |m (0-51)|..v.2...|
|000006b0| 54 68 65 20 43 61 72 64 | 56 61 6c 20 28 31 2d 31 |The Card|Val (1-1|
|000006c0| 33 20 3d 20 41 2c 32 2e | 2e 2e 51 2c 4b 29 2c 20 |3 = A,2.|..Q,K), |
|000006d0| 41 6e 64 20 54 68 65 20 | 43 61 72 64 53 75 69 74 |And The |CardSuit|
|000006e0| 00 00 76 00 34 00 00 00 | 28 30 20 3d 20 43 6c 75 |..v.4...|(0 = Clu|
|000006f0| 62 73 2c 20 31 20 3d 20 | 44 69 61 6d 6f 6e 64 73 |bs, 1 = |Diamonds|
|00000700| 2c 20 32 20 3d 20 48 65 | 61 72 74 73 2c 20 33 20 |, 2 = He|arts, 3 |
|00000710| 3d 20 53 70 61 64 65 73 | 20 29 00 00 76 00 33 00 |= Spades| )..v.3.|
|00000720| 00 00 41 72 65 20 41 73 | 73 69 67 6e 65 64 2c 20 |..Are As|signed, |
|00000730| 41 6c 6f 6e 67 20 57 69 | 74 68 20 41 20 52 61 6e |Along Wi|th A Ran|
|00000740| 64 6f 6d 20 4e 75 6d 62 | 65 72 20 54 6f 20 22 50 |dom Numb|er To "P|
|00000750| 6f 73 22 00 00 00 00 00 | 76 00 3c 00 00 00 59 6f |os".....|v.<...Yo|
|00000760| 75 20 54 68 65 6e 20 45 | 6e 64 20 55 70 20 57 69 |u Then E|nd Up Wi|
|00000770| 74 68 20 54 68 65 20 44 | 65 63 6b 20 49 6e 20 43 |th The D|eck In C|
|00000780| 61 72 64 20 4f 72 64 65 | 72 20 57 69 74 68 20 45 |ard Orde|r With E|
|00000790| 61 63 68 20 43 61 72 64 | 00 00 76 00 3b 00 00 00 |ach Card|..v.;...|
|000007a0| 41 73 73 69 67 6e 65 64 | 20 41 20 52 61 6e 64 6f |Assigned| A Rando|
|000007b0| 6d 20 56 61 6c 75 65 20 | 49 6e 20 50 6f 73 20 54 |m Value |In Pos T|
|000007c0| 68 61 74 20 49 73 20 49 | 6e 20 54 6f 74 61 6c 20 |hat Is I|n Total |
|000007d0| 44 49 53 4f 52 44 45 52 | 21 64 00 10 00 00 76 00 |DISORDER|!d....v.|
|000007e0| 38 00 00 00 54 6f 20 41 | 63 74 75 61 6c 6c 79 20 |8...To A|ctually |
|000007f0| 53 68 75 66 66 6c 65 20 | 54 68 69 73 20 4f 72 64 |Shuffle |This Ord|
|00000800| 65 72 65 64 20 50 61 63 | 6b 20 57 65 20 53 69 6d |ered Pac|k We Sim|
|00000810| 70 6c 79 20 43 61 6c 6c | 20 41 00 00 76 00 3c 00 |ply Call| A..v.<.|
|00000820| 00 00 42 75 62 62 6c 65 | 53 6f 72 74 20 54 68 61 |..Bubble|Sort Tha|
|00000830| 74 20 50 6c 61 63 65 73 | 20 54 68 65 20 43 61 72 |t Places| The Car|
|00000840| 64 73 20 49 6e 20 4f 72 | 64 65 72 20 41 63 63 6f |ds In Or|der Acco|
|00000850| 72 64 69 6e 67 20 54 6f | 20 54 68 65 00 00 76 00 |rding To| The..v.|
|00000860| 39 00 00 00 52 61 6e 64 | 6f 6d 20 4e 75 6d 62 65 |9...Rand|om Numbe|
|00000870| 72 73 20 41 73 73 69 67 | 6e 65 64 20 54 6f 20 22 |rs Assig|ned To "|
|00000880| 50 6f 73 22 2c 20 45 66 | 66 65 63 74 69 76 65 6c |Pos", Ef|fectivel|
|00000890| 79 20 53 68 75 66 66 6c | 69 6e 67 54 00 00 76 00 |y Shuffl|ingT..v.|
|000008a0| 25 00 00 00 54 68 65 20 | 4f 72 64 65 72 65 64 20 |%...The |Ordered |
|000008b0| 44 65 63 6b 20 49 6e 74 | 6f 20 52 61 6e 64 6f 6d |Deck Int|o Random|
|000008c0| 20 4f 72 64 65 72 21 00 | 00 00 00 00 76 00 3c 00 | Order!.|....v.<.|
|000008d0| 00 00 53 69 6e 63 65 20 | 54 68 65 20 42 75 62 62 |..Since |The Bubb|
|000008e0| 6c 65 73 6f 72 74 20 44 | 6f 65 73 20 4e 6f 74 20 |lesort D|oes Not |
|000008f0| 43 61 72 65 20 49 66 20 | 4d 75 6c 74 69 70 6c 65 |Care If |Multiple|
|00000900| 20 45 6e 74 72 69 65 73 | 20 46 6f 72 00 00 76 00 | Entries| For..v.|
|00000910| 3b 00 00 00 22 50 6f 73 | 22 20 48 61 76 65 20 54 |;..."Pos|" Have T|
|00000920| 68 65 20 53 61 6d 65 20 | 56 61 6c 75 65 2c 20 59 |he Same |Value, Y|
|00000930| 6f 75 20 45 6c 69 6d 69 | 6e 61 74 65 20 54 68 65 |ou Elimi|nate The|
|00000940| 20 53 6c 6f 77 20 50 72 | 6f 63 65 73 73 72 00 00 | Slow Pr|ocessr..|
|00000950| 76 00 3b 00 00 00 4f 66 | 20 54 72 79 69 6e 67 20 |v.;...Of| Trying |
|00000960| 54 6f 20 47 65 6e 65 72 | 61 74 65 20 35 32 20 55 |To Gener|ate 52 U|
|00000970| 6e 69 71 75 65 20 52 61 | 6e 64 6f 6d 20 4e 75 6d |nique Ra|ndom Num|
|00000980| 62 65 72 73 20 54 6f 20 | 53 68 75 66 66 6c 65 72 |bers To |Shuffler|
|00000990| 00 00 76 00 0b 00 00 00 | 54 68 65 20 44 65 63 6b |..v.....|The Deck|
|000009a0| 2e 20 00 00 00 00 76 00 | 21 00 00 00 46 41 53 54 |. ....v.|!...FAST|
|000009b0| 2c 20 46 4f 4f 4c 50 52 | 4f 4f 46 2c 20 41 4e 44 |, FOOLPR|OOF, AND|
|000009c0| 20 45 46 46 49 43 49 45 | 4e 54 21 64 00 10 00 10 | EFFICIE|NT!d....|
|000009d0| 96 00 00 10 0b 00 96 00 | e4 00 0b 00 17 01 3e 00 |........|......>.|
|000009e0| ff ff fa 00 00 20 0b 00 | 96 00 e5 00 34 00 ef 00 |..... ..|....4...|
|000009f0| 0b 00 96 00 0e 00 01 00 | 83 00 12 00 78 00 00 20 |........|....x.. |
|00000a00| 0b 00 96 00 e5 00 0d 00 | ef 00 ee 00 e4 04 a3 00 |........|........|
|00000a10| 0b 00 96 00 0e 00 01 00 | 83 00 12 00 5a 00 00 20 |........|....Z.. |
|00000a20| cd 00 0b 00 17 01 f0 00 | e4 04 a3 00 bc 00 0b 00 |........|........|
|00000a30| 96 00 0e 00 01 00 83 00 | 12 00 71 00 00 20 0b 00 |........|..q.. ..|
|00000a40| 96 00 e5 00 0d 00 e0 00 | 0b 00 96 00 0e 00 01 00 |........|........|
|00000a50| 83 00 12 00 4f 02 00 10 | 0b 00 96 00 4e 00 ff ff |....O...|....N...|
|00000a60| 06 00 00 10 23 00 00 00 | 4f 01 00 00 39 00 09 00 |....#...|O...9...|
|00000a70| 08 00 ff ff ff ff ff ff | ff ff 20 00 04 00 03 00 |........|.. .....|
|00000a80| fd                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+